home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / scm / merge-sort.scm < prev    next >
Encoding:
Text File  |  1993-05-07  |  397 b   |  11 lines
  1. (define (merge x y test)
  2.         (cond ((null? x) y)
  3.               ((null? y) x)
  4.               ((test (car x) (car y)) (cons (car x) (merge (cdr x) y test)))
  5.               (else (cons (car y) (merge x (cdr y) test)))))
  6.  
  7. (define (merge-sort x test)
  8.         (cond ((null? (cdr x)) x)
  9.               (else (merge (list (car x) (cadr x)) 
  10.                            (merge-sort (cddr x) test) test))))
  11.